home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / HyperCard / XCMD Docs / CompileIt! Source Code / CustomInitDisk drive,name,bTre… < prev    next >
Encoding:
Text File  |  1995-08-19  |  976 b   |  33 lines  |  [TEXT/ttxt]
  1. on CustomInitDisk drive,name,bTreeSize
  2.   put NewPtrClear(24) into myHFS
  3.   --new record for HFSDefaults
  4.   put bTreeSize into HFSDefaults@.btClpSize
  5.   SysBeep 10
  6.   answer "Are you sure you want to inititialize the disk in drive #" & drive & "? NOTE: This will erase all data on the disk in drive #" & drive & "." with "Yes" or "Cancel"
  7.   if it="Yes" then
  8.     DiLoad
  9.     put myHFS into HFSDefaults -- low memory var
  10.     put "Formatting…"
  11.     get DiFormat(drive)
  12.     if it≠0 then
  13.       SysBeep 20
  14.       answer "Error of type" && it  && "while formating disk. Press OK to continue"
  15.     end if
  16.     put "Verifying…"
  17.     get DiVerify(drive)
  18.     if it≠0 then
  19.       SysBeep 20
  20.       answer "This disk has bad sectors. (Error ID=" & it
  21.     end if
  22.     put "Creating Directory…"
  23.     get DiZero(drive,name)
  24.     if it≠0 then
  25.       SysBeep 20
  26.       answer "Initialization Failed!!!! Error ID=" & it
  27.     end if
  28.   end if
  29.   put ""
  30.   
  31.   put 0 into HFSDefaults
  32.   DisposPtr myHFS
  33. end CustomInitDisk